Mission to McDonaldLand/Mission To McDonaldLand.iso/matele.dxr/00040_Script_Go to Next Marker

Text File | 1998-10-22 | 1KB | 56 lines

-- Marker    Go to      Next

-- Nav
-- drag to a sprite
-- goes to next marker on author selected event
-- also functions through lingo by handling message 'initGotoNextMarker',
-- for example if this behavior was assigned to sprite 5, use
-- sendsprite 5, #initGotoNextMarker

property whichEvent

on initGotoNextMarker me
  init me
end

on mouseUp me
  if whichEvent = #mouseup    then init me
end

on prepareFrame me
  if whichEvent = #prepareframe then init me
end

on exitFrame me
  if whichEvent = #exitframe  then init me
end

on init me
  go to marker (1)
end



---

on getPropertyDescriptionList

  set p_list = [ ¼
    #WhichEvent: [ #comment:  "Initializing Event:", ¼
                    #format:   #symbol, ¼
                     #range: [ #MouseUp, #PrepareFrame, #ExitFrame, #InitGotoNextMarker], ¼
                   #default:   #MouseUp ] ¼
                 ]
  return p_list

end

on getBehaviorDescription
  return ¼
"Moves the Playback Head to the next marker when the specified event occurs.  Drag to a sprite or a frame in the script channel." && RETURN & ¼
"PARAMETERS:" && RETURN & ¼
"ò Initializing Event - Specify the event that triggers the behavior."

end